home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 56 / Tiger_Disk_056_19xx_Tiger-Crew-Disk_de_Side_B.d64 / change device-# (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  235b  |  9 lines
  1. 100 print"[147]":poke53280,12:poke53281,15:poke646,0:print"change device-# ...."
  2. 110 input"old device number ";d0
  3. 120 ifd0<8ord0>15then110
  4. 130 input"new device number ";dn
  5. 140 ifdn<8ordn>15then130
  6. 150 open15,d0,15
  7. 160 print#15,"m-w"chr$(119)chr$(0)chr$(2)chr$(dn+32)chr$(dn+64)
  8. 170 close15:end
  9.